home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 July
/
07_02.iso
/
software
/
xq-xsetup
/
files
/
setup.exe
/
{app}
/
plugins
/
XQ Desktop NameSpace MyComp.xpl
< prev
next >
Wrap
Text File
|
2002-01-28
|
1KB
|
54 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="1"
"COUNT"="2"
"UIPATH"="Appearance\Desktop\Icons\'My Computer' Options"
"NAME"="'My Computer' name"
"VERSION"="1.11"
"LANGUAGE"="VBScript"
"TEXT 1"="9x/NT"
"TEXT 2"="2000/XP"
"DESCRIPTION 1"="Use this plug-in to change the names of "My Computer" on your Windows desktop."
"DESCRIPTION 2"="Please use the line that suits your OS."
"DESCRIPTION 3"=""
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"=" "
"COMMENT 2"="Thanks to Justin Wood (JustinW396@Yahoo.com) for "My Computer" setting!"
Sub Plugin_Initialize
s=RegReadValue("HKCU\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@")
SetUIElement 1,s
s=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@")
SetUIElement 2,s
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
s=GetUIElement(1)
Call RegWriteValue("HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@",s,1)
Call RegWriteValue("HKCU\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@",s,1)
s=GetUIElement(2)
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@",s,1)
'Call IndicateSettingChange()
Call Logoff()
End Sub
Sub Plugin_Terminate
End Sub